home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / orinf / jan96 / kolsf101.gif

< prev

next >

Graphics Interchange Format  |  1996-05-15  |  42KB  |  932x676  |  8-bit (18 colors)

Labels: text | screenshot | software | number | font | computer icon | web page | parallel
OCR: Oracle Power Objects File Edit Object View Run Window Help Main btnEnterSQL Properties btnExecSQL Properties S_BYCUST D. + x + Bitmap v Click v Click Sub Click() SalesByCountryfrmSBC SqlComman Sub Click() DIM vSOLstmt AS String Class - Sql Comma SqlCommand. sizex=600 vSQLstmt = fldSQLText. value SqlCommand. sizey=180 IF NOT ISNULL (vSQLstmt) THEN - r the Sql Stater self. Positionx=15 EXEC SQL : vSQLstmt fr fldSQLText self. PositionY=45 msgbox SQLErrText() + fldSQLText. sizex=460 ELSE Execute SQL fldSQLText. sizey=150 MsgBOX "Empty SQL string" btnExecSQL. sizex=110 END IF Enter SQL btnExecSQL. sizey=25 fldSQLText. visible=False fldSQLText Properties lblSqlField. sizex=210 self. visible=False lblSqlField. sizey=23 lblSqlField. visible=False +1 X1 fldSQLText. Positionx=134 btnEnterSQL. Positionx=0 + DataSize 500 fldSQLText. Positiony=22 btnEnterSQL. PositionY=0 btnExecSQL. Positionx=15 fldSQLText. sizex=5 + DataSource btnExecSQL. Positiony=90 fldSQLText. sizey=5 + Datatype String lblSqlField. Positionx=134 btnExecSQL. sizex=5 DefaultValue lblSqlField. Positiony=4 btnExecSQL. sizey=5 DrawStyle Standard Contro fldSQLTEXT. visible=True lblSqlField. sizex=5 Enabled True btnExecSQL. visible=True lblSqlField. sizey=5 lblSqlField. visible=True fldSQLText. Positionx=1 > FontBold False fldSQLText. Positiony=1 FontItalic False self. Positionx=1 > FontName Application Font self. Positiony=1 + FontSize 12 lblSqlField. Positionx=1 FontUnderline False lblSqlField. Positiony=1 + FormatMask SqlCommand. sizex=96 SqlCommand. sizey=24 Save the contents of the active window

---